perm filename RDBIN[206,LSP] blob
sn#098910 filedate 1974-04-23 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 BEGIN "HUM"
C00004 ENDMK
C⊗;
BEGIN "HUM"
INTEGER CHAR,BRCHAR,EOF,FLAG;
REQUIRE "⊂⊃<>" DELIMITERS;
DEFINE CRLF = ⊂ ('15 & '12) ⊃;
OPEN(0,"DSK",8,2,0,10,BRCHAR,EOF);
WHILE TRUE DO
BEGIN
OUTSTR(CRLF & "FILE: ");
LOOKUP(0,INCHWL,FLAG);
IF FLAG THEN OUTSTR(" FILE NOT FOUND") ELSE DONE
END;
WHILE TRUE DO
BEGIN
OUTSTR(CVOS(WORDIN(0)) & CRLF);
END
END "HUM"